INSERT INTO û przyk│ad instrukcji
W tym przyk│adzie wybierane s╣ wszystkie rekordy z hipotetycznej tabeli NowiKlienci, po czym s╣ one dodawane do tabeli Klienci. Poniewa┐ nie s╣ podane konkretne kolumny, nazwy kolumn tabeli, kt≤rej dotyczy instrukcja SELECT, musz╣ dok│adnie odpowiadaµ nazwom kolumn z tabeli, kt≤rej dotyczy INSERT INTO.
Sub InsertIntoX1()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Wybierz wszystkie rekordy z tabeli NowiKlienci
' i dodaj je do tabeli Klienci.
dbs.Execute " INSERT INTO Klienci " _
& "SELECT * " _
& "FROM [NowyKlienci];"
dbs.Close
End Sub
W tym przyk│adzie tworzony jest nowy rekord w tabeli Pracownicy.
Sub InsertIntoX2()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Utw≤rz nowy rekord w tabeli Pracownicy.
' ImiΩ brzmi Piotr, nazwisko - Czarniecki,
' za£ tytu│ - Sta┐ysta.
dbs.Execute " INSERT INTO Pracownicy " _
& "(ImiΩ,Nazwisko, Tytu│) VALUES " _
& "('Piotr', 'Czarniecki', 'Sta┐ysta');"
dbs.Close
End Sub